1 POKE53280,0:POKE53281,0
2 PRINTCHR$(147)"      PIOTR STACHOWIAK/CRAZY SNEAK     "
4 PRINTCHR$(30)"              PRZEDSTAWIA"
5 PRINTCHR$(154)"          PROGRAM OBLICZENIOWY"
10 FORBA=0TO15
15 FORBO=0TO15
16 POKE53280,BA
20 POKE53281,BO
40 FORX=1TO2000:NEXTX
50 CLR:PRINTCHR$(147)
60 PRINTCHR$(158)"           MATEMATYKA 1                "
65 PRINT"              ,"
70 PRINT"CO CHCESZ ROBIC ?"
75 PRINT"                       ,               "
80 PRINT".................DODAWAC........-D"
85 PRINT"                         ,             "
90 PRINT".................ODEJMOWAC......-O"
95 PRINT"                    . ,               "
100 PRINT".................MNOZYC.........-M"
105 PRINT"                       ,               "
110 PRINT".................DZIELIC........-Z"
114 PRINT"                         ,             "
115 PRINT".................POTEGOWAC......-P"
116 PRINT"                    '         ,        "
120 PRINT".................PIERWIASTKOWAC.-N"
121 PRINT""
122 PRINT".................ADRES AUTORA...-A"
123 PRINT""
124 PRINT"           ,"
130 PRINT"       NACISNIJ(D,O,M,Z,P,N,A)"
131 PRINT""
133 PRINT"    ,                           ,"
134 PRINT"NACISNIECIE INNEGO PRZYCISKU-WYJSCIE"
135 PRINT"       '"
140 GETA$:IFA$=""THENGOTO140
144 IFA$=CHR$(65)THENGOTO500+CHR$(13)
145 IFA$=CHR$(68)THENGOTO265+CHR$(13)
150 IFA$=CHR$(79)THENGOTO285+CHR$(13)
160 IFA$=CHR$(77)THENGOTO305+CHR$(13)
170 IFA$=CHR$(90)THENGOTO325+CHR$(13)
180 IFA$=CHR$(80)THENGOTO345+CHR$(13)
185 IFA$=CHR$(78)THENGOTO365+CHR$(13)
190 IFA$=CHR$(81)THENGOTO200+CHR$(13)
191 PRINT""
200 PRINTCHR$(147)"KASUJE Z PAMIECI LISTING":NEW
210 PRINT"WYNIKIEM JEST LICZBA:"X
211 PRINT"    ,"
212 PRINT"NACISNIJ SPACJE"
220 FORY=0TO1000STEP1
240 GETA$:IFA$=""THEN GOTO240
250 IFA$<>""THENGOTO50
260 :
265 PRINTCHR$(147)
266 PRINT""
270 PRINT"D O D A W A N I E ..."
275 PRINT"":GOSUB400
280 X=B+C:GOTO210
285 PRINTCHR$(147)
289 PRINT""
290 PRINT"O D E J M O W A N I E ..."
295 PRINT"":GOSUB400
300 X=B-C:GOTO210
305 PRINTCHR$(147)
309 PRINT"      ."
310 PRINT"M N O Z E N I E  ..."
315 PRINT"":GOSUB400
320 X=B*C:GOTO210
325 PRINTCHR$(147)
326 PRINT""
330 PRINT"D Z I E L E N I E  ..."
335 PRINT"":GOSUB400
340 X=B/C:GOTO210
345 PRINTCHR$(147)
346 PRINT""
350 PRINT"P O T E G O W A N I E ..."
355 PRINT"      '":GOSUB400
360 X=B^C:GOTO210
365 PRINTCHR$(147)
366 PRINT""
370 PRINT"P I E R W I A S T K O W A N I E  ..."
375 PRINT"":GOSUB400
380 X=B^(1/C):GOTO210
390 :
400 INPUT"LICZBA1:";B
410 INPUT"LICZBA2:";C
420 RETURN
500 PRINTCHR$(147)
505 PRINT"PIOTR STACHOWIAK"
510 PRINT""
520 PRINT"AL.3-MAJA 10/10"
530 PRINT"      ,       "
540 PRINT"PIOTRKOW TRYB. 97-300"
550 PRINT""
560 PRINT"TEL. 47-33-97"
570 PRINT""
575 PRINT"    ,"
580 PRINT"NACISNIJ SPACJE"
600 GETA$:IFA$=""THENGOTO600
610 IFA$=CHR$(32)THENGOTO50+CHR$(13)